home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ NetMeeting 1.xpl
< prev
next >
Wrap
Text File
|
1999-07-18
|
2KB
|
79 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="1"
"COUNT"="3"
"UIPATH"="Internet\NetMeeting"
"NAME"="URL Settings"
"LANGUAGE"="VBScript"
"VERSION"="1.2"
"TEXT 1"="Homepage URL"
"TEXT 2"="Default Server"
"TEXT 3"="Support URL"
"DESCRIPTION 1"="Some options for Microsoft NetMeeting can be changed here. The default URL for "Default Server" is "logon.netmeeting.microsoft.com"."
"DESCRIPTION 2"="NOTE: To restore the default seetings, clear the fields."
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
sPath="HKEY_CURRENT_USER\Software\Microsoft\Conferencing\"
sV1="HKEY_CURRENT_USER\Software\Microsoft\Conferencing\NetMeeting Home Page"
sV2="HKEY_CURRENT_USER\Software\Microsoft\User Location Service\Client\Server Name"
sV3="HKEY_CURRENT_USER\Software\Microsoft\Conferencing\Policies\IntranetSupportURL"
Sub Plugin_Initialize
if RegPathExists(sPath) then
s=RegReadValue(sV1)
SetUIElement 1,s
s=RegReadValue(sV2)
SetUIElement 2,s
s=RegReadValue(sV3)
SetUIElement 3,s
else
Disable
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
s=GetUIElement(1)
if len(s)=0 then
s=RegReadValue(sV1)
if IsEmpty(s)=false then Call RegDeleteValue(sV1)
else
Call RegWriteValue(sV1,s,1)
end if
s=GetUIElement(2)
if len(s)=0 then
s=RegReadValue(sV2)
if IsEmpty(s)=false then Call RegDeleteValue(sV2)
else
Call RegWriteValue(sV2,s,1)
end if
s=GetUIElement(3)
if len(s)=0 then
s=RegReadValue(sV3)
if IsEmpty(s)=false then Call RegDeleteValue(sV3)
else
Call RegWriteValue(sV3,s,1)
end if
End Sub
Sub Plugin_Terminate
End Sub